unit shbl_ToolWnd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, GridsEh, DBGridEh, ExtCtrls, MemTableDataEh, Db,
  MemTableEh, PropFilerEh, PropStorageEh, FIBDataSet, pFIBDataSet,
  FIBDatabase, pFIBDatabase, ActnList, Menus, DBGridEhGrouping;

type
  TshblToolWnd = class(TForm)
    dbgToolWnd: TDBGridEh;
    Panel1: TPanel;
    tbOpacity: TTrackBar;
    dscToolWnd: TDataSource;
    PropStorageEh1: TPropStorageEh;
    dsToolWnd: TpFIBDataSet;
    trToolWnd: TpFIBTransaction;
    tToolWnd: TTimer;
    ActionList1: TActionList;
    PopupMenu1: TPopupMenu;
    aAdd: TAction;
    aEdit: TAction;
    aDel: TAction;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    procedure tbOpacityChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;  

var
  shblToolWnd: TshblToolWnd;

implementation

uses MAIN, MAIN_DM;

{$R *.dfm}

procedure TshblToolWnd.tbOpacityChange(Sender: TObject);
begin
  Self.AlphaBlendValue := tbOpacity.Position;
end;

procedure TshblToolWnd.FormShow(Sender: TObject);
begin
  if Self.AlphaBlendValue = 0 then
    Self.AlphaBlendValue := 10; 
end;

procedure TshblToolWnd.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Self.Free;
end;

end.
